home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / a_2d_car_r2006147132006.psc / cool cars / modLoadTex.bas < prev    next >
BASIC Source File  |  2006-07-11  |  9KB  |  68 lines
  1. Attribute VB_Name = "modLoadTex"
  2. '#########################################################
  3. '#                                                       #
  4. '#      A 2d Car Racing Game (incomplete)                #
  5. '#                                                       #
  6. '#      By: Aayush Kaistha                               #
  7. '#      Place: UIET, Panjab University Chandigarh, India #
  8. '#      Contact: aayushkaistha@gmail.com                 #
  9. '#                                                       #
  10. '#      Remark: i've made a level and car driving        #
  11. '#              physics. now i dont know what to add     #
  12. '#              next. tell me ur suggestions through     #
  13. '#              comments on pscode.com n i'll try to     #
  14. '#              implement them. infact, just post any    #
  15. '#              comment that u wanna make. all comments  #
  16. '#              r welcome.                               #
  17. '#                                                       #
  18. '#########################################################
  19.  
  20. Option Explicit
  21.  
  22.  
  23. Public Sub LoadTextures()
  24.  
  25. Set CarTex = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "car2.tga", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  26. Set PlrTex = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "mp3 player.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  27.  
  28. Set Texture(0) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rh1.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  29. Set Texture(1) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rh2.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  30. Set Texture(2) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rv1.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  31. Set Texture(3) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rv2.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  32. Set Texture(4) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc1.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  33. Set Texture(5) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc2.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  34. Set Texture(6) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc3.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  35. Set Texture(7) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc4.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  36. Set Texture(8) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc5.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  37. Set Texture(9) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc6.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  38. Set Texture(10) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc7.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  39. Set Texture(11) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc8.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  40. Set Texture(12) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc9.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  41. Set Texture(13) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc10.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  42. Set Texture(14) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc11.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  43. Set Texture(15) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rc12.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  44. Set Texture(16) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rw5.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  45. Set Texture(17) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rw6.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  46. Set Texture(18) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rw7.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  47. Set Texture(19) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "rw8.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  48.  
  49. Set Texture(20) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "tree1.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  50. Set Texture(21) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "tree2.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  51. Set Texture(22) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "tree3.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  52. Set Texture(23) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "tree4.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  53. Set Texture(24) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "tree5.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  54. Set Texture(25) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "bush.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  55.  
  56. Set Texture(26) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "field1.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  57. Set Texture(27) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "field2.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  58. Set Texture(28) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "field3.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  59. Set Texture(29) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "field4.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  60. Set Texture(30) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "field5.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  61. Set Texture(31) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "field6.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  62.  
  63. Set Texture(32) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "sand.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  64. Set Texture(33) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "water.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  65. Set Texture(34) = D3DX.CreateTextureFromFileEx(D3DDevice, TexturePath + "hut.jpg", D3DX_DEFAULT, D3DX_DEFAULT, D3DX_DEFAULT, 0, D3DFMT_A1R5G5B5, D3DPOOL_MANAGED, D3DX_DEFAULT, D3DX_DEFAULT, &HFF000000, ByVal 0, ByVal 0)
  66.  
  67. End Sub
  68.